home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / lib / dpkg / mksplit
Text File  |  2009-09-20  |  3KB  |  91 lines
  1. #!/usr/bin/perl --
  2. # This script is only supposed to be called by dpkg-split.
  3. # Its arguments are:
  4. #  <sourcefile> <partsize> <prefix> <totalsize> <partsizeallow> <msdostruncyesno>
  5. # Stdin is also redirected from the source archive by dpkg-split.
  6.  
  7. # Copyright (C) 1995 Ian Jackson <ian@chiark.greenend.org.uk>
  8. #
  9. #   This is free software; you can redistribute it and/or modify
  10. #   it under the terms of the GNU General Public License as
  11. #   published by the Free Software Foundation; either version 2,
  12. #   or (at your option) any later version.
  13. #
  14. #   This is distributed in the hope that it will be useful, but
  15. #   WITHOUT ANY WARRANTY; without even the implied warranty of
  16. #   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17. #   GNU General Public License for more details.
  18. #
  19. #   You should have received a copy of the GNU General Public
  20. #   License along with dpkg; if not, write to the Free Software
  21. #   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  22.  
  23. @ARGV == 6 || die "mksplit: bad invocation\n";
  24.  
  25. ($sourcefile,$partsize,$prefix,$orgsize,$partsizeallow,$msdos) = @ARGV;
  26.  
  27. sub output {
  28.     $!=0; $rv= `$_[0]`; $? && die "mksplit $_[0]: $! $?\n";
  29.     $rv =~ s/\n$//; $rv =~ s/\s+$//; $rv =~ s/^\s+//;
  30.     $rv;
  31. }
  32.  
  33. $myversion='2.1';
  34. $csum= &output("md5sum <\"$sourcefile\"");
  35. $csum =~ s/\s.*//;
  36. $package= &output("dpkg-deb --field \"$sourcefile\" Package");
  37. $version= &output("dpkg-deb --field \"$sourcefile\" Version");
  38. $revision= &output("dpkg-deb --field \"$sourcefile\" Package_Revision");
  39. $version.= "-$revision" if length($revision);
  40. $nparts=int(($orgsize+$partsize-1)/$partsize);
  41. $startat=0;
  42. $showpartnum=1;
  43.  
  44. $|=1;
  45. print("Splitting package $package into $nparts parts: ");
  46.  
  47. $msdos= ($msdos eq 'yes');
  48. if ($msdos) {
  49.     $prefixdir= $prefix; $prefixdir =~ s:(/?)/*[^/]+$:$1:;
  50.     $cleanprefix= $prefix; $cleanprefix =~ s:^.*/+::;
  51.     $cleanprefix =~ y/A-Za-z0-9+/a-za-z0-9x/;
  52.     $cleanprefix =~ y/a-z0-9//cd;
  53. }
  54.  
  55. sub add {
  56.     $data .=
  57.         sprintf("%-16s%-12d0     0     100644  %-10d%c\n%s%s",
  58.                 $_[0], time, length($_[1]), 0140, $_[1],
  59.                 (length($_[1]) & 1) ? "\n" : "");
  60. }                 
  61.  
  62. while ($startat < $orgsize) {
  63.     $dsp= "$myversion\n$package\n$version\n$csum\n$orgsize\n$partsize\n".
  64.           "$showpartnum/$nparts\n";
  65.     defined($thispartreallen= read(STDIN,$pd,$partsize)) || die "mksplit: read: $!\n";
  66.     $data= "!<arch>\n";
  67.     print("$showpartnum ");
  68.     &add('debian-split',$dsp);
  69.     &add("data.$showpartnum",$pd);
  70.     if ($thispartreallen > $partsizeallow) {
  71.         die "Header is too long, making part too long.  Your package name or version\n".
  72.             "numbers must be extraordinarily long, or something.  Giving up.\n";
  73.     }
  74.     if ($msdos) {
  75.         $basename= "${showpartnum}of$nparts.$cleanprefix";
  76.         $basename= substr($basename,0,9);
  77.         $basename =~ s/^([^.]*)\.(.*)$/$2$1/;
  78.         $basename= "$prefixdir$basename";
  79.     } else {
  80.         $basename= "$prefix.${showpartnum}of$nparts";
  81.     }
  82.     open(O,"> $basename.deb") || die("mksplit: open $basename.deb: $!\n");
  83.     print(O $data) || die("mksplit: write $basename.deb: $!\n");
  84.     close(O) || die("mksplit: close $basename.deb: $!\n");
  85.     $startat += $partsize;
  86.     $showpartnum++;
  87. }
  88. print("done\n");
  89.  
  90. exit(0);
  91.